home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_49 / DoAction.as
Text File  |  2003-11-17  |  2KB  |  66 lines
  1. kv = "0";
  2. if(eval("c" add sd) and eval("pl" add sd) == "0")
  3. {
  4.    kv = "1";
  5.    c = eval("c" add sd);
  6.    call("c1");
  7.    if(sd < "4" and eval("c" add sd) == "1" and "2" < kv)
  8.    {
  9.       kv = "0";
  10.       x = "0";
  11.       while(x < "20")
  12.       {
  13.          y = "0";
  14.          while(y < "20")
  15.          {
  16.             if("999" < eval("p" add x add "_" add y))
  17.             {
  18.                k = eval("p" add x add "_" add y);
  19.                k -= "1000" * int(k / "1000");
  20.                set("p" add x add "_" add y,k);
  21.             }
  22.             y += "1";
  23.          }
  24.          x += "1";
  25.       }
  26.       call("c4");
  27.    }
  28.    else
  29.    {
  30.       il1 = "1";
  31.       er = level;
  32.       while(il1 < "5")
  33.       {
  34.          x = tpx - il1;
  35.          while(x < tpx + il1 + "1")
  36.          {
  37.             y = tpy - il1;
  38.             while(y < tpy + il1 + "1")
  39.             {
  40.                k = eval("p" add x add "_" add y);
  41.                k = int(k / "1000");
  42.                if("999" < eval("p" add x add "_" add y))
  43.                {
  44.                   duplicateMovieClip("/s","s" add x add "_" add y,x + y * "20" + 16384);
  45.                   setProperty("s" add x add "_" add y, _X, x * "15" + dx + "7.5");
  46.                   setProperty("s" add x add "_" add y, _Y, y * "15" + dy + "7.5");
  47.                   set("p" add x add "_" add y,eval("p" add x add "_" add y) + "20" - k * "1000");
  48.                   shots -= "1";
  49.                   er -= "1";
  50.                   if(shots == "0" or er == "0")
  51.                   {
  52.                      y = "200";
  53.                      x = "200";
  54.                      il1 = "6";
  55.                      er = "0";
  56.                   }
  57.                }
  58.                y += "1";
  59.             }
  60.             x += "1";
  61.          }
  62.          il1 += "1";
  63.       }
  64.    }
  65. }
  66.